 #!/usr/bin/perl
    use strict;
    use warnings;

    my $string1 = '12aa';
    my $num2 = 12;

    if ($string1 == $num2) {
        print "Equal\n";
    } else {
        print "Not equal\n";
    }